﻿Imports Sy.Data
Public Class MailType
    Public Sub New() : End Sub
    Public Sub New(name As String, smtp As String, sSL As Boolean, port As Integer)
        Me.Name = name
        Me.Smtp = smtp
        Me.SSL = sSL
        Me.Port = port
    End Sub

    Public Name As String
    Public Smtp As String
    Public SSL As Boolean
    Public Port As Integer

    Friend Shared ReadOnly Empty As MailType = New MailType("", "smtp.ym.163.com", False, 25)

    Public Overrides Function ToString() As String
        Return Name
    End Function
End Class
